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Open Doc/SOM and OLE/COM 


Berthold Reinwald 


Purpose of the talk 

t Compound Documents: look & feel 
t Component Software: what’s behind the windows 
t Technology Relationships: overview & preview 
t Open Doc/SOM and OLE/COM comparison 
t Your first Component: “get down and dirty” 
t Statement about the Applications 


OpenDoc/OLE - Behind the Windows? 


OpenDoc 


This is a compound document, demon¬ 
strating the irregular shapes 
in OpenDoc. 

Judge yourself. 



Ji 

1 




OLE 


This is a compound 
document in OLE. Oh, 


regular shapes only. 
Judge yourself. 




Hill 



WordPerfect Lotus Query Word6 Excel5 QMF 

component component component application application application 



OpenDoc.DLL 


OLE2.DLL 


t a component/application is just a program executable or a DLL 
t enabled software 

t each component/application employs its own binary data (format) 
t distributed objects 
t remote method invocation 
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Technology Relationships 


Open Doc/SOM 


Application 

Integration 


Object 

Managmnt. 


Interprocess 

Communic. 


Compound Doc. 
Services 

OpenDoc 

Automa- 

OpenDoc 

Interoper¬ 

ability 

Component 

tion 

Services 


Services 

(OSA) 

Services 

(OLE) 



Storage 

(BENTO) 



(Taligent) 


component somdsvr 



SOMSockets 
(DCE RPC, MQS) 


OLE/COM 


In-Place Activation/ 

“Visual Editing” 

--Linking 

t- 

Embedding 


— Drag&Drop Automat. 
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Uniform Data Monikers 
* Transfer 
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Compound Files 

I I 

Component Object Model 


LRPC (DCE RPC) 
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OpenDoc/SOM versus OLE/COM 



OpenDoc 

OLE 

Programming 

SOM 

COM 

Development Effort 

50 functions 

126 functions 

Scripting&Automat. 

OSA, recordable macros 

? 

Activation Model 

directly, across nested, 
multiple active objects 

activate&edit, along nest¬ 
ing path, one at a time 

Content Shape 

irregularly 

rectangular 

Storage System 

Bento 

DocFiles (DOS FAT file) 

Object Linking 

persistent IDs 

Moniker 


SOM 

COM 

Programming 

object-oriented 

object-based (no inherit.) 

Languages 

language-neutral (DTS) 

language-neutral 

Static Typing 

statically typed 

interfaces are static, typed 

Distribution 

DSOM 

with Cairo 

Method Resolution 

offset, name, dispatch 

interface vector table 

Standards 

OMG compliant (IDL, DTS) 

MS proprietary 

Platforms 

OS/2, AIX, Windows 

Windows, NT 
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Hello Component: HELLO.IDL 


interface Hello : ContainerPart 

{ 


//# Instance data 


ODULongiteration; 


// number of mouse double-clicks 


ODBoolean fNeedToExternalize; // determine part changes 


//# identify SOM and OpenDoc methods that this class 
//# will re-implement 


Draw, 

Externalize, 

HandleEvent, 

InitPart, 

InitPartFromStorage 
: override; 


// draws part content in the provided facet 

// called when doc in which part resides is saved 

// process events, e.g. mouse clicks 

// called during instantiation of a part 

// called during instantiation of a part from storage 
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Hello Component: HELLO.CPP (1) 


SOM SCOPE void SOMLINK HellolnitPart (HelloPart ‘somSelf, 

Environment *ev, 

ODStorageUnit *storagellnit 

){ 

HelloPartData *somThis = HelloPartGetData (somSelf); 

HelloPartMethodDebug (’’HelloPart”, ’’HellolnitPart”); 

HelloPartjDarent_ContainerPart_lnitPart (somSelf, ev, storagellnit); // init parent 

// Initialize instance data, e.g. somThis->iteration = 0 
somSelf->HelloCommonlnitPart(ev); 

// “set dirty” 

somThis->fNeedToExternalize = kODTrue; 

// prepare part for writing of data by adding a contents property value 
//to the storage unit 

storagellnit->AddProperty(ev, kODPropContents)->AddValue(ev, kHelloPart); 


}; 


BJR, Oday, 6-95 




Hello Component: HELLO.CPP (2) 


SOM SCOPE void SOMLINK HelloExternalize (HelloPart *somSelf, 

Environment *ev) 

{ 

// Stores HelloPart part persistent data in part’s storage unit 
// inherited info, e.g. mod date 

HelloPart_parent_ContainerPart_Externalize(somSelf, ev); 

if (somThis->fNeedToExternalize) { // check whether “dirty” 

ODStorageUnit *su = somSelf->GetStorageUnit(ev); // get ref to storage 

// focus on HelloPart storage unit 
su->Focus(...) 

// write data to storage unit 

su->SetValue (ev, sizeof(SomThis->iteration), &somThis->iteration); 

// reset flag 

somThis->fNeedToExternalize = kODFalse; 

} 

}; 
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Hello Component: HELLO.CPP (3) 


SOM SCOPE void SOMLINK HellolnitPartFromStorage ( 

HelloPart *somSelf, 

Environment *ev, 

ODStorageUnit *storageUnit // storage unit 

) 

{ 

// retrieves the part’s data from the storage 
// init parents 

HelloPart_parent_ContainerPart_lnitPartFromStorage (somSelf, ev, storagellnit); 

// Init instance data of part, e.g. somThis->iteration = 0 
somSelf->HelloCommonlnitPart(ev); 

somThis->fNeedToExternalize = kODFalse; // no need to externalize 

// focus storage unit on the part to be retrieved 
storagellnit->Focus (ev, ..., HelloPart, ...); 

// read the data from storage unit into the instance variable 
storagellnit->GetValue(ev, storagellnit->GetSize(ev), &somThis->iteration); 

}; 
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